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14*Sep-1 DISKSVMSMASTER:CDIF. See MAIN.B32;1 
MODULE DIF _MAIN ( ! Differences main routine 
LANGUAGE (B8L1S$$32), 
ADDRESSING_MODE (EXTERNAL=GENERA 
NONEXTERNAL LONG, RELATIVE), 


MAIN = DIFSSTART, 
— = *v04-000 
= 


Sisarexs 


BEGIN 
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SS 


Let image rundown clean up VM usage. 


v03-002 502 212 Benn Schreiber 14-Mar-1983 
vith handling of O-length records which caused problem 
¥ ith /ig 
Lanks. 


nmore=exact. Set rdb$v_edited if tabs converted to 


Be Oe Be Oe Be Oe Be Oe Se Oe Be Se Se Se Se Se Se Oe Se Be Se Fe Se HSH SH Se Oe Se Oe Oe Se Be Ss Se Se Se Se Se Se Oe Se Se Oe Se Se Oe Oe HSH OH Se Oe Oe Oe Oe ee 


4 
é 
8 1 
% 9 1 
10 Qo! * 
11 0011 1 !« COPYRIGHT as) 1978, 1980, 1982, 1984 B * 
i Org 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. : 
1? 32 : i: ALL RIGHTS RESERVED. sd 
4 ® 
15 0015 1 '* THIS SOFTWARE IS pyran sneo UNDER A LICENSE AND MAY BE USED AND COPIED * 
1g 3218 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE oe = uete THE * 
1 et 1 !@ IN iter OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
18 18 1 !@ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVA TLABLE TO ANY ®* 
19 001 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
° + » ) i. TRANSFERRED. * 
Ps e 
§ 00 § 1 !@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 1 != AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$¢ o : : Se CORPORATION. ; 
'e 
6 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ®* 
i B8 , : es SOFTWARE OW EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 2 
99 a 1 ie . 
0 00 0 1 PROPHET AAAAAEEAAAAEAAAHEHEERAAEEHEAEHEHAAEAAAAAHERATARAAAREREAAAREREEEE 
1 ee 
4 80 § 1 lee 
0035 1! 
4 0034 1 ! FACILITY: DCL Differences command 
$2 0035 1: 
6 00 § 1 ' ABSTRACT: 
7 003 1: The oct DIFFERENCES command compares the contents of 
& ste 1} two files. 
9 0039 1! 
40 0040 1 ! ENVIRONMENT: 
* 041 : VAX native, user mode 
Ps i 1 ie 
44 44 1! 
rF 5 ' AUTHOR Peter George, Benn Schreiber CREATION DATE: 1-August-1981 
rh 4 Doe} ' MODIFIED BY: 
49 0469 1! v03-003 P¢G0005 Peter George 13-0c t-1983 
20 39 : Fix bugs in maximum differences logic. 
5 52 1: 
38 ag yi 
54 ae 
55 55 1! 
§ ee 
| ee 
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DIF _MAIN 18-5 =| 242: VAX-11 Bliss-32 V4.0-74 P DIF 
vOe Fie aes ra tt eS oe HS ht kr vOe 
5 28 ; 1! v03-001 PCG0004 Peter George 05-Jan-1983 
: Fe : : Clean up some code. Speed up record editing code. 
.' WS 


Ho 
DIF _MAIN 15-Sep-1984 23:42:06 -VAN-11 BLiss-32 v4.0-7% ° 
4H Fak at hs ra tC ec oe OS Ph of 


PDI et et st et et wt st 


init_hex octal. 
output_lTsting_trailer, 
put_record, 
write_mismatch; 


Prepare for hex or octal output 

Output Listing trailer 

Output a record in appropriate radix 
m 


Output records in a mismatch 


63 ¢ 1 LIBRARY : 

ee : *SYSSLIBRARY:STARLET.L32'; ; 

¢] 5 1 REQUIRE : 

6 066 1 "DIFPRE'; ' DIF prefix file : 

68 140 1 REQUIRE $ 

9 141 1 *DIFDEF’; ! DIF data structures ; 

0 te 1 ; 

71 73 13 $ 

g 0 re : } Difference giobai data : 

74 0 6 1 exten, A 

75 77 «(1 difSgl_commdesc : BBLOCK ! Desc for buffer of comment delimiters 3 

0378 1 difSgl_commflgs : BITVECTOR, ! Bit is set if corresponding char must be in first column ; 

0379 #1 dif$gl_ignore : BBLOCK, ! Flags of characters to ignore ; 

8 go 1 dif$gl_cmdesc : BBLOCK, ' Command Line descriptor : 

dif$gl_header, ! No. of Lines to skip as header F 

8 o¢ 1 dif$gl_match ! No. of records that constitute a match 3 

‘ 1 di f$gl-maxdif, ! Maximum number of unmatched records : 

0384 1 Ji f$gl_merged, ! No. of matched Lines to follow each List of merged differe 3 

0385 1 dif$gl_parallel, ! No. of matched Lines to follow each List of parallel diffe : 

0 36 1 dif$gl_wndwsiz, ! No. of records to search before declaring a mismatch ; 

0 1 dif$gl_fiags : BBLOCK, ' Flags : 

0388 #1 difSgl_difrec, ! No. of different records detected 3 

0389 1 difSgl_difsec, ! No. of difference sections detected : 

0390 1 dif$gl_width, ! width of Lines in output Aisne 3 

0391 #1 dif$gl_inbuf ! Address of the input record buffer F 

Bae8 1 dif$gl“outbsiz, ! Allocated size of output buffer 3 

395, ; ,  difSglloutbuf, ! Address of the output record buffer : 

Bee : } Input and output file data structures : 

0899 1 dif$gl_masfdb : BBLOCK, ! Master file fdb 3 

96 Bene 1 dif$gl_masrab : BBLOCK, ' RAB for master file 3 

0399 1 di fS9t _maseo! : BBLOCK, ! Master file EOF RDB : 

98 0400 1 dif$gl_revfdb : BBLOCK, ! Revision file fdb ; 

we 0401 1 dif$gl_revrab : BBLOCK, ' RAB for revision file : 

190 ot 4 : dif$gl_reveof : BBLOCK; ! Revision file EOF RDB : 

108 0404 1 EXTERNAL ROUTINE : 

10 Rete 1 dif$getcmd, ! Initialize global data : 

104 rts 1 difSopen_mas, ! Open master input file 3 

105 0407 1 di fSopen_rev, ! Open revision input file 3 

106 88 1 qi tgopen.. ° ! Open output file : 

10 1 dif$close_in, ' Close input file ° 

108 0 1 dif$close_out, ! Close output file : 

109 a Lib$Sget_vm, ' Allocate virtual memory ; 

110 § 1 Lib$free_vm, ! Deallocate virtual memory : 

a i : sys$fao; ! FAO conversion routine : 

18 ¥S cxTERM, ROUTINE : 

aaa § ' additional_output, Output 2nd, 3rd, ... Listings 

11 1 
119 § 1 
118 0 1 
119 1 4 


1 

DIF _MAIN shesty-1 1984 23:4 VAX-11 BL Liss -32 V Page 4 

ve 1a-Sep <1 198 93: 18 rr DISKSVMSMASTER: ay 18 sRCSmaIN. 832;1 . (2) 
1 FORWARD ROUTINE 
1 allocete_rdb, 
1 compare, 
1 get_record, 
1 mark_match, 
1 mismatch, 
1 print. and quit, 
1 process record, 
1 Pool’ Fe 
: rea Fecord, 
1 
1 
1 
1 
1 
1 
1 
1 


= 


OOOWNO VE WP" O ODO ES UT 


Allocate an RDB 

Compare two records 

Get a record from the iter or oF rye 
Mark matt matched records in 

Mismatch found, find next ey 
Print last records processed and quit 
Delete ignore chars from record 
pore? processed RDB's 

Rea record from a file 

Set fdb move flags 

Verify match contains enough records 


nr 


set_move_flags, 
test_match; 


exremes LITERAL 
fileredif, 
difs” “insvirmem, 
f$-maxdif, 


f$~ “readerr, 
f$"“samefile; 


Se Se Oe Ge Se Be ee Se Ge Se Oe Se Se Ge Se Se Se Se we 
> + 4 > 4 4 ns — 2» 4 2» 2 2» + 4 + 4 + sp 


RRLRRREKE 


= 


: 
Ey ERIMM EAGER SNDEAIERE Sy SRtbaanesess PO ot 


3 «160 41 1 GLOBAL ROUTINE dif$start = 

3 (146) t BEGIN 

ig 108 44 

; 14 44 '¢¢ 
iz 166 445 ' 
is \¢? rr, FUNCTIONAL DESCRIPTION: 
\3 129 448 4 This routine is called after the Difference command has been 
/; 148 49 : parsed by the CLI. It calls appropriate initialization routines, 
3 149 50 : and then starts the actual qi i Terences processing. simple 

: 150 451 : 908 is executed in which Lines from each file are compared until 
is 151 8 ¢ ‘ either a mismatch is detected, or the end of both files has been 
aS § 4 ! reached. On completion, routines are called to output any additional 

$ : : 4 : } Listings that have been requested and to close all open files. 

; 155 4 § ! INPUTS: 

Ss $ ; 

3; 15 458 ! None 

; 158 459 : 

; 189 0460 ' OUTPUTS: 

: 160 0461 ‘ 

3 19) Ree The requested differences Listing is generated. 

3 188 464 ' IMPLICIT INPUTS: 

: 1646 465 ‘ 

3; 165 46 : The command Line is parsed and the appropriate global symbols 
ls 168 046 ! have been initialized. 

; 0468 ‘ 

; 168 966? ' ROUTINE VALUES: 

3 a 0470 ° 

; 170 0471 : Always true. 
: 171 8 ‘ 

; 176 7 ded 
: 17 74 LOCAL 

3; «174 475 inbufalloc ! Flag indicating that input buffer was allocated 
. tf pers masrdb : REF BBLOCK, ' Temporary storage for a master file RDB address 
3; 176 Be? revrdb : REF BBLOCK, ! Temporary storage for a revision file RDB address 
: 177 78 status; 
; 178 984 

: 179 80 

3 181 1 Call initialization routines. | 
9 ¢ ‘ dif$getcmd (); ' Initialize global data 

ss difSopen_mas (); ! Open nestor sngut file 

3 fF 485 difSopen_rev (); ! Open revision input file 

; «6185 4 difSopen_out (); ! Open output file 

3 196 set_move_flags (); ! Set FDB move flags 

3 188 & } 4 

: 189 90 ' Adjust value of /WIDTH to: 

: 190 91 : Avoid problems with huge values 

; «6191 3 : Avoid problems with tiny values 
| 3 196 4, Prevent data truncation with /SLP output 

: 19% 95 gi feat width = MAXU (MINU (,dif$gl_width, 65535), difSc_minlisiz); 

: 195 049 IF iT$gl_flags (dif$v_sip) 


i a 


1 
DIF _MAIN 1$-sep-1984 23:42: VAX=11 BLiss-32_V4.0-74 Pose 6 
=500 eager TRRe F315:83 | Neat eRe es eeSmaiw.e32:;1 P29 cs 
th = MAXU ( 
1 /WIDTH value 


widt 
(“masrab rabfu_usz] i master file record size bound 
L_revrab [rab$w_usz 5; ! revision file record size bound 


Allocate memory for the output buffer. The size calculation is based on 
an examintion of all used of this buffer. The calculation was complicated 
enough that it may not be completely accurate. 


ifSq\ ti siz = MAXU ( 
Gif fawidth + ' specitied /WIDTH value plus 


! a 
! OUTPUT for stars 


1 . 

hie minlisiz, ! minimum size of Listing boilerplate 
+dif$c gotrys tzend) tec. inenua. ! OUTPUT put_record_hex_octal routine 

(8 + 4edTf$c_Linenum)/3, ! OUTPUT output_parallel routine 
2edif$c_Linenum) ; ! OUTPUT output gto routine 

IF NOT (status = LIBSGET_VM (dif$gl_outbsiz, dif$gl_outbuf)) 
THEN SIGNAL_STOP (.status); 


Allocate pmeet for the input buffer, if required, and set tne input 
! buffer allocation flag appropriately. 


' 
if di tSgl flags CdifSv_hex] OR .dif$gl_flags ([dif$v_octal] 
THEN BEGIN 
inbufalloc = true; 
2 If NOT (status = LIBSGET_VM (ZREF (MAXU mesrab Crab$w_usz], 
rs 


(.dif$gl_ 
revrab Crab$w_usz])), dif$gl_inbuf)) 


SE 
. THEN SIGNAL_STOP (.status); 
ELSE inbufalloc = false; 
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PAPI PIPPI PURINOPIPUDYD tt ow 


—— 
REALS SSVOORUN HS OBVS AP UWA OOR NEAR WU O DO 


If the first Listing will be in hex or octal, then initialize the appropriate 
global data. 


IF NOT .dif$gl_flags Cdif$v_ascii] 
THEN init_hex_octal (); 


' 
Set flag for output routine to output header. 


difS$gl_flags CdifSv_init) = true; 


PPPAA PAAR 


' 
i This is the main loop that drives the search for differences. It processes 
matches itself, and calls mismatch to process differences. 


DO BEGIN 
‘ 


i For each input file, get the RDB for the next record. If we run out of 
: virtual memory, then set up the appropriate data so that we can die gracefully. 


if NOT (status = get_record (dif$gl_masfdb)) 
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DIF _MAIN ese $1984 23:42: VAX~11 Bite s-32 V P 7 
vbe 12-808=1 388 $3:48:98 DISK$V MSHA STER: cbt 7 oSRCIMAIN. 832;1 ge (3) 
THEN OR NOT (status = get_record (dif$gl_revfdb)) 
oi fsol. masfdb (fdb$v_move] = false; ! So that we don't generate any more Listings 
gi top iacev tee fdb$v_move] = false; 


i If we are only ysing an input file's records in one Listing file, then 
; purge those RDB’s that we are permanently finished with. 


if NOT .dif$gl anastdd [tabsv. move) 


POON 


ELSE BEGIN ' If records are the 


‘ ; 

0 ; 

: 

64 ; 
65 ; 
567 THEN purge _fdb (dif$gl_masfdb); ; 
569 IF NOT .difSgl_revfdb [fdb$v_movel F 
570 THEN purge _rdb (dif$gl_revfdb); 3 
uae : 
258 ' Compare the two records that we have just fetched. : 
Bare i if they differ, init the FIRSTDIF and CURREC FDB fields and call mismatch : 
575 i to process the difference section. If mismatch encounters too many differences : 
9278 i or runs out of VM, then die gracefully. r 
B27 i If they are the same, and if we are generating a change bar Listing, : 
bere then print the master file record. : 
Fs 4 if e i .Sgapere (.difSgl_masfdb Cfdb$l_currec], .dif$gl_revfdb Cfdb$i_currec]) Sonpere. he two records ; 
! The s 

5 ; en eT isol. masfdb (fdbSl_firstdif] = .difSgl_masfdb Cfdb$l_currec : : init ptrs to start of dif 3 
5 difSgl-revfdb (fdb$i-firstdif)] = .dif$gl-revfdb Cfdb$l“currec : : 
5 dif$gi-ma b taps _compirec) = .dif$gl_ “aastdd fdb$l-currec : ! Init ptrs for first record : 
585 dif$gl_ revi fdb$l aispei res = .dif$gl-revfdb Cfdb$l-currecd; ' try and matc : 
05 status = mismatch (.d Sgt os preyetars ' Call mismatch with window : 
82 IF (.status EQL dif$_maxdif ! Check return status : 
5 (,status EQL ditScinevirmen) : 
589 THEN BEGIN ! If some problem 3 
5 difSgl_masfdb (fdb$v_move] = false; ' Then die. gracefully 3 
23) oittes revfdb Cfdb$v_move) = false; 3 
a pyro ign 
594 masrdb = di f$gl_ masfdb (fdb$l_currec ! Othewise, point to matched | ; 
595 revrdb = .dif$gl"revfdb Cfdb$l—currec 3 
236 END : 
3 
335 : 
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' 
IF a, -dif$gl_flags Cdif$v_merged] AND NOT .dif$gl_flags ([dif$v_parallel) ' currently output 
D NOT diT$o ait s A its = arated stoic - : Listing, then ou 
THEN If 1189 pasté (9 angeb ber). ! = record. 
THEN cord g Hi masfdb 
ELSE yt ia! sol. revfdb Cfd ta, ae aches’ 
ut gcrcord (dif$gl_revfdb, 2); , 
masrdb = .dif$gl_ sestae -currec} : ! Poi * to matched records 
revrdb = .dif$gl"revfdb raps te eeerese 
nasrdb Crdb$v_match) = revrdb Crdb$v “natch) = true; ! Indicate that they are mat 
END 
UNTIL (.masrdb (rdb$v_eof)); ! Quit if end of both files 


DJF RAIN 


— —*) + se —* _ — 4 —4 


WIN — 9 OONO VE WN "OO OBOE 


SOLER 


ee 
uno 


1 
1 
1 
1 
1 
1 
1 
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1 
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' 

Finish off current Listing and then output any other Listings required. 
difSgl_masfdo [fdb$Sl_firstdif? = .difSgl_masfdb fabstfirstrect; 
difSgl_revfdb [fdb$Sl_firstdif] = s9i7s l_revfdb Lfdb$l_firstrecij; 
difSgl_masfdb [fdb$l_compnrec] = dif$gl_maseof; 

difSgl_revfdb Lfdb$l_compnrec] = dif$gl_reveof; 

dif$gl_masfdb fapgt-lastr fal = 0: 

etre iarey oe fdb$l_lastrfaj = 0; 

additional_output (); 

] 


Determine completion status. Use worst possible. 
IF (.status NEQ difS_maxdif) AND (.status NEQ dif$_insvirmem) 
THEN CIF (.difSgl_difsec EQ. 0) 
THEN status = dif$_samefile 
ELSE status = difS_filaredif); 
' 
} Output information at bottom of Listing. 


output_listing_trailer 0; 


' 
Close open files. 


' 

' 

difSclose_in (dif$gl_masfdb); ' Close master input file 

difSclose_in (dif$gl_revfdb); ' Close revision input file 

dif$close_out (); ! Close output file 

RETURN .status; 

END; ! Of main 
-TITLE DIF_MAIN 
IDENT \V0%-000\ 
-EXTRN DIFSGL_COMMDESC 
-EXTRN DIFSGL-COMMFLGS 
~-EXTRN DIFSGL_IGNORE, DIF 
eEXTRN DIFSGL-HEADER, DIF 
~EXTRN DIF SGL _BAXDIF DIF 
SEXTRN DIF GL-PARALLEL 
eEXTRN DIFSGL_WNDWSIZ, DI 
eEXTRN DIFSGL_DIFREC, DIF 
eEXTRN DIFSGL_WIDTH, DIFS 
-EXTRN DIFSGL“OUTBSIZ, D1 
-EXTRN DIFSGL-MASFDB, DIF 
eEXTRN DIFSGL_MASEOF, DIF 
eEXTRN DIFSGL_REVRAB ot 
SEXTRN DIF SGETCD ofr 
-EXTRN DIFSOPEN REV, DIF 
eEXTRN DIF gL Ose IN, DIF 
-EXTRN LIBSGET_VA, LIBSFR 
“EXTRN SYSSFAOs ADDITIONA 


32 V4 
ER: 
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! Set up ptrs for additional 


! Call output routine 


| 


r 


1 
DIF _MAIN bese -1984 23:42: VAX-11 Bliss-32 V4.0-74 Pa 9 ) 
ObL200 122808= 1382 93:48:94 NIK SUMCHASTERCCDIF SRC SMAIN.632: 1 9 (3) V 
.EXTRN INIT_HEX_OCTAL, OUTPUT_LISTING_TRAILER ; 
SEXTRN PUT_RECORD, WRITE MISMATCH : 
-EXTRN DIFS_FILAREDIF DT INSVIRMEM ; 
EXTRN DIFS"MAXDIF, DIFS_READERR ; 
“EXTRN DIFS"SAMEF ILE : 
.PSECT SCODES,NOWRT,2 : 
OFFC 00000 ENTRY DIFSSTART, Save R2,R3,R4,R5,R6,R7,RB,RI,- —; 0461 ; 
B 006 9E 9002 MOVAB DIF$GL_OUTBSIZ, R11 : : 
A 06 gE 99 MOV DIF SCL _MASRAB*$ , R10 : : 
H ¢ 3f 9001 MOVAB obiRSctcuioTn’ Ra’ : : 
; p 8 G 9E 00 43 MOVAB DIFSGL“FLAGS, R : F 
$ 000006 0 9€ 00 MOVAB DIFS$GL-REVFDB, R : : 
0000006 3 0 ¢ MOV DIFSGL“MASFDB. R : ; 
90000006 06 6 FB Op0 CALLS #0, DIFSGETCMD + 0483 : 
| tittitditaamts 8 FB boos CALLS #0. DIFSOPEN_MAS + 0484 : 
000000006 00 00 FB 00044 CALLS #0. DIFSOPEN-REV > 0485 ; 
000000006 00 0 FB 0004 CALLS #0, DIFSOPEN-OUT > 0486 ; 
00000000v EF 00 FB 0005 CALLS #0, SET_MOVE-FLAGS + 0487 ; 
oooorrre ar BF Oe Ob CRPe DIFSGL .OIDTH ” .? : 
5 18 006 BLEQU 1$° : ; 
50 FFFF 8F 3C 0006 MOVZWL #65535, RO : ; 
0c 9 DI 0006A 1$: CMPL RO, #12 : F 
0 3 006D BGEGU : : 
50 o¢ DO 0006F MOVL #12, RO : ; 
68 D0 0072 2$ MOVL RO, DIFSGL_WIDTH : ; 
$0 01 88 BO 00079 Bisc DIF So. _FLAGS#T, 5S : $seo 
50 6A 10 09 FD 007¢ CMPZV OD, aE DIFS$GL_MASRAB+32, RO ; ; 
03 1B 00081 LEQU «3S : | : 
50 6A 3C 00083 MOVZWL DIFSGL MASRAB+32, RO : : 
50 69 10 09 FD aes 3$ CMP ZV #9, #18, DIFSGL_REVRAB+32, RO ; 0501 : 
O55 HEB og, SUM Buss aeamansta oe 
50 68 14 (1 0098 5$: ADDL3 = #20, DIFSGC WIDTH, RO ; $809. ; 
11 50 D1 0009 CMPL = RO, #1 : 0508 | ; 
50 F 06 itt sere Siz. RO : : 
68 30 p 3 6$: MOVL RO, DIF$GL_OUTBSIZ : F 
000000006 g a Ag PUSHAB D1f'$6L_OUTBUF ; 0516 ; 
000000006 99 i AA CALLS #2, LIBSGET_VM 
09 E8 00a, eres status, ‘ pte ’ 
iF CALLS #1, LIBSSTOP : : 
4 poraenees 00 1 £0 3 7$: BBS” #1, DIFSGL_FLAGS, 8$ : 0523 : 
2 67 é E C4 BBC Ae DIFSGL-FLAGS, 108 : | F 
0 0 C8 8S: MOVL #1, INBUFACLOC : 8 5 : 

000000006 00 9F CB PUSHAB DIF $GL_INBUF ; $ 
04 AE 6A 3C 0009 MOVZWL DIFSGL“MASRAB+32, 4(SP) : 0 | 


sen eciececpaegnisicnaenanteenclitipecithtas gees asada lie sinaenettieniettei . ae ' 


| 
DIF_MAIN .2,. =1984 23:42: VAX-11 Bliss-32_ v4.0-74 Page 10 DIF. 
Ye 12-808-1 3c $334 §:94 DISKSVMSMASTER:(DIF.SRCIMAIN.B32:1 A\t vite 
046 AE 9 81 05 CMP BIFSGL_REVRAB+32, 4(SP) ; 
4 18 000D BLEQU : 
04 AE 9 3¢ 00008 MOV? L DIESGL _REVRAB+32, 4(SP) : 
04 AE 9F OOODF 9S: PUSHAB 4(SP) + 0526 
000000006 99 FB OO0E? CALLS #2, LIBSGET_VM : 
D E MOVL Tus ; | 
D a EC BLBS erATUS. 1$ : 
DD OOODEF PUSHL ATUS : 0528 
000000006 00 1 FB 000F1 CALLS #1, LIBSSTOP ; 
11 000F8 BRB 116 F 0535, 
D4 OOOFA 10$:  CLRL preet tCs : 0530. 
07 £8 0 FC 11$:  BLBS p F Gt FLAGS, 12% : 0936 
000000006 : re FF CALL HEX OCTAL : 0537. 
01 A 88 106 13s: 81582 ‘ é, Seige *PLAGS#1 : 0942 
00000000v EF 1 FB 10¢ CALLS . GET_RECORD : 
3 9 dO 0011 MOVL RO STATUS : 
6B £9 O16 LBC eras. 16$ : 
6 DD 0011 PUSHL > 0555 
00000000v_ EF 1 FB 011 CALLS a. ger RECORD F | 
: PF bot oe Be eg : | 
09 26 «AS g EO 00128 BBS 83, US ser _MASFDB+36, 14$ : 0566 : Ra 
00000000V EF 1 Pe St D CALS i PUAGE Regosi 
9 24 Ab 03 EO 91 148: BBS a3: DIFSEC REVFDB+36, 15$ : 0569. 
00000000V EF 01 FB $01 CALLS #1, PURGE : | 
Sn a eam met Te 
4 | 
00000000v_ EF Q FB 0148 CALLS ae. COMPA F | 
44 EB OO14F BLBS RO, 18$ : | 
C AS 65 00 0152 MOVL DIFSGL_MASFDB, DIFSGL -MASEDB+12 F 0582 
ee 66 DO 00156 MOVL DIFSGL“REVFDB. DIFSGL-REVFDB+1 : 0583. 
10 A 65 DO 0015A MOVL  DIFSGLMASFDB. DIFSGL~MASFDB+16 : 0584 | 
10 A 6 D0 O15 MOVL DIFSGLREVFDB, DIFSGL-REVFDB+16 : 0585 
000000006 DD 0016 PUSHL DIFSGL-WNDWSI2 : 0586. 
00000000v 34 1 FB 3168 cats “ Hi bea : 
000000006 &F 3 v4 O172 CPL srATUs, ADIFS_MAXDIF > 0587 | 
000000006 &F 3 pi O78 cmPL iss. #DIFS_INSVIRMEM > 0588 | 
34 AS 0 A 00184 16$:  BI1CB DIFSGL -FASEDB® 6 : 9590 
4 Ab A 001 BICB DIF SGL~REVFDB+ 36 : 0591 | 
43 11 0018C BRB 5 p : 0589 
52 65 00 OO18E 178:  MOVL DIFSGL_MASFDB, MASRDB + 0594. 
00 i MOVL FSGL"REVFDB. REVRDB > 0595 | 
1 194 BRB $ : 0580. 
A HS S813 1h Bese BUPESLALAGS: 318 ans 
89 4 1 TSTB DIESGL FLA AGS : 0600 | 
19 19 OO1A BLSS 1$ : 
06 24 AS €9 OO1A BLBC sd OI FSGL_MASFDB+36, > 0601 
dD PUSHL é ; 0602 
8 Y 1AA RB 208 : 


2 
oe IEHTAs PEATE SMA GResees dS) 8 


08 26 AG E9 QOIAC 198:  BLBC  DIFSGL_REVFDB+36, 218 : 0603, 
DD 001 PUSHL # > 0604 
DO 0018 PUSHL : 
000000006 00 FB 00184 08: CALLS #2, PUT_RECORD : 
2 65 00 001BB 21$:  MOVL $DIFSGL_MASFDB, MASRDB ; 0605 
4 6 1B MOVL DIF SG REVFDB, REVRDB : 606 
AG 1C BISB2 #16, STREVRDBS + 0607 | 
b 1 1¢ BISB2 #16, 8(MASRDB) : | 
03 A 9 5 169 22$: BBS "6 8(MASRDB), 23$ + 0611. 
FF 1 Ice BRW 13§ : 
C AS 6 AS 06 1Di 23$:  MOVL  DIFSGL_MASFDB+4, DIFSGL_MASFDB+1 + 0616. 
c @ 4 A p 106 MOVL  DIFSGLREVFDB+4, DIFSGL-REVFDB+1 : 0617) 
4 OA 900000 06 0 E 108 MOVAB DIFSGLMASEOF, OIF $GL_MASFDB+20 : 0618. 
14  Aaé 000000006 9 OO1E NOVAB DIFSGLIREVEOF, DIFSGL-REVFDB+20 ; 0619) 
1¢ AS D4 O01EB CLRL DIF SGL“MASFDB* + 0620 | 
1¢ Ab D4 TEE CLRL DIFSGL REVFDB+ + 0621. 
000000006 00 F 1F CALLS #0, ADBITIONAL_OUTPUT : 06 2 | 
000000006 &F ; : O1F8 CPL status, #DIFS_MAXDIF ; 062? | 
000000006 8F 3 pi 00201 CMPL STATUS, #DIFS_INSVIRMEM : | 
1B 13 00208 BEQL 5$ : 
000000006 00 D5 0020 TSTL  DIFSGL_DIFSEC ; 0628 
9 12 00210 BNEQ 24$ : 
53 000000006 8F 00 0021 MOVL § #DIFS_SAMEFILE, STATUS + 0629) 
07 11 0 1 BRB 25$ : 
53 000000006 8F D0 0021 248: MOVL #DIFS_FILAREDIF, STATUS + 0630 
000000006 00 99 FB 00 5$: CALLS #0, OOTPUT_LISTING_TRAILER : 0635. 
DD 00 PUSHL R5 ; 0640) 
000000006 06 01 FB 00 8 CALLS #1, DIFSCLOSE_IN ; 
6 DD 00 PUSHL R6 3 0641) 
000000006 00 01 FB 00234 CALLS #1, DIFSCLOSE_IN : 
000000006 00 99 FB 00 CALLS #0, DIFSCLOSE~OUT > 0642 
50 DO 0024 MOVL STATUS, RO + 0644 
04 0024 RET > 0645 


; Routine Size: 582 bytes, Routine Base: S$CODE$S + 0000 


Be Oe Oe Be Oe Be Se Se Se Be FH Se Se Se Se Se Se Se FH Ge FH Se Se Ge Se Se SH Se Ge Ge Se Se Se Seas Se Se Seas SH Se Se ee Se Se Se eee Se Fe Ge Se Se Se Se teas 


ee 


a eh RE AAABAABAAEAE EEA AA ALE A AAA A AGA EEA AAAAA A AAALAC 


2 
DIF _MAIN 1b-sép-1984 23:42: VAX=11 BLiss-32 v4.0-74 Pose 1 
be Fe Saath A rt RS dO a 
ROUTINE mismatch (window) = 
BEGIN 


cee 
' 


i FUNCTIONAL DESCRIPTION: 


This routine is called when a mismatch has been detected 
in the main loop. For each file, we get a new record, and 
then compare it with all the records that we have on hand 
from the cther file. If a match is detected, the appropriate 
number of trailing records ore examined to guarantee thet it is 
areal match. If no match is detected, the files are switched 
and the ececedurs is repeated. If a match is not found within 
the specified WINDOW number of records from each file, 

then each file's COMPIREC pointer is moved forward one record 
and mismatch calls itself egein, Eventually, a match will be 
roune. piace every file is terminated by an EoF RDB that points 
o itself. 


INPUTS: 
window = The size of the window to search for a match. 
IMPLICIT INPUTS: 


The COMPIREC pointers from the two FDB's mark the beginning 
of the comparisons. 


OUTPUTS: 
The file FDB's are updated so that they point to the next match. 
ROUTINE VALUES: 


NOE WI OO NO AE UM OOO 


SRESLESELEAEAN AS SAVSAFAN—=S 


; Always true. 
5 LOCAL 
end_of_list ! Flag indicating time to get a new record 
tdbT :“REF BBLOCK, i Local storage for input FOB addresses 
; Hs | : REF BBLOCK 
fdb2_lastrec : REF BBLOCK, ' Last record in list - set EOL flag 
temptdb : REF BBLOCK, ! Temp used to swap FDB addresses 
4 status; 
38 fdb1 = dif$gl_masfdb; ! Init pointers to two FDB's 
3 fdb2 = dif$gl_revfdb; 
+4 38 INCRU i FROM 1 TO 2¢(. window) ' Limit depth of search for next match 
38 $4 DO BEGIN 


IF eM gitres # (,i-1)/2 ¢ 1) EQL “di fSol maxdif! If too many differnce records 
THEN RETORN print_and_quit (.i, difS_maxdiff; ! Then tidy up and quit 


& If NOT (status = get_record (.fdb1)) ! Get next record 


Oe Oe Ge Oe Oe we Be Se we Se Se Se Be Be Oe Ge SH Se Se Se Se Se Se Se Ge FH Se Se Oe Se BH He Se Ge SH SH Se Oe oe Oe Se Se Se Oe Se Oe Oe Oe Oe Oe He Se Se Oe Oe Ge ee 


~~ 
RSS 


S= 


oe a ed ee ed SS ed dd dt I I i i I SI i SII 


Bete ee Oe Se Se Oe Ge Be Se Oe Se Ge Se FH Oe Oe Oe FH Se oe Oe Oe BH Se SH Se FH Se Oe ee Oe FH Ose Oe SH Se ee SESH Se Se Sees ee 


2 
Uae IERIE EEN DARA eESeanasasy PO 


OFFC 00000 MISMATCH: 


; : 3 y 3 THEN RETURN print_and_quit (.i, .stetus); If insvirmem, then get out 

; 405 705 fdb1 Set -compnrece = .fdb] fdb$t .currecd: ! Use cqcord just fetched from one file 

; 4 7 fdb reyes cenenr es = .fdb2 Lfdb$i_compirec]; ! Use first compare record from other file 

3; «& 7 fdb¢e_lastrec = .fd Cfgbst urres 3 ; 5" with last record read from other file 

3 : f fdbe Lfdb$l_currecj) = .fdb2 Lfdb$l_compirec); ! Init for test_match 

; £39 ey end_of_list = false; ! Init end of List flag 

: lg at WHILE NOT .end_of_list ! while not past end of List 

3 rt at 2 DO BEGIN ! Compare against each record in other file's List 
: 415 715 4 IF compere (.fdb1 Cfdb$t_compnrec], .fdb2 Cfdb$i_compnrec)) ! Compare two records 

3 rey rg THEN IF (status = test_natch 5 } sane, then do enough records match 
3 ' Yes 

: 418 718 mark_match (dif$gl_masfdb); i Mark matched records 

; 419 719 mock merece (dif$gl_revfdb); 

:; 420 720 write mismatch(); ! Output unmatched records 

: 421 721 fdb1 Ffabst currec = .fdb! piSbst comparecy; ! Set CURREC’s to first matches 
Be sig etree ee adraal ara eles: | update att 

; rec =. rec 21° 8 ’ ate erence coun 

: 626 724 IF «di tS 9 difrec EQL Gi t$ql_maxdit ! If too many differnce records 
; 425 725 THEN RETURN (dif$_maxdif); ' Then return the error 

; $ 3 $ 5 aa true; ! Return to dif$start 

: 428 0728 ! If not enough records in match 
: 429 729 4 ELSE IF .status EQL dif$_insvirmem ! Then make cure we didn't run out o 
: . o r 9 ° THEN RETURN prinft_and_quit (.i, .status); ! If we did, then quit 

. 4 ; tse § IF (.fdb2 Cfdb$t_compnrec) EQL .fdb2_lastrec) ! If at end of List 

i. 3, § ase seamen ru L dine grt noel eecrd 

; ; x 

3; 435 735 ; ibs bi abst compnrgcd - ON a Cr gptt currecdi 

3; 4 7 fdbe Lfdb$i_currec) = ..fdb2 Cfdb$i_currecd; 

,; 6 7 4 END; 

; 4 738 4 

; 439 739 END; 

: 6460 740 

3; «46461 741 tempfdb = .fdb1; ! Exchange FDB's 

3; 44 rg fdbt = .fdb2; 

> 46 74 fdb2 = .tempftdb; 

3 6466 744 

3 ret re? END; 

+ 46 74 fdb1 Cfdb$l_compirec) = ..fdb1 pfabst compat rec 3 ' Reset ptrs to first compare records 

3 rrr | bg fdb2 Cfdb$i_compirec) = ..fdb2 [fdb$l_compirec); 

: 450 7 dif$gl_difrec = .dif$gl_difrec + .window; ! Update count of difference records 

; $3 Pe oer mismatch (1); Recur sively call mismatch with window size of 1 
; 3 : mismatc 


c_-— 
i 
} 


58 


04 


000000006 


00000000v 


—— 
“es 


00000000v 
00000000v 


00000000v 


0000V 
000006 


000000006 


000000006 


00000000v 


FF h 
01 AS4 


F 

8 

4 

gf 1 
0 

0 6 
0084 

Ad 64 
A3 10 A 
5A 6 
63 10 =A 
03 37 
008 

14 OA 

er 14 AG 
68 56 
44 0 
6 0 

46 6 
ef 000000006 a} 
, 000000006 ° 

60 0 
64 14 AG 
$3 14 «AS 


0 
ast 
ap 


50 000000006 i 


50 01 
8F 6 
EF 
5A 14) =A 

05 


32 
R 


6,R7,RB,RI,R10,R11 


1 
#1, GET_RECORD 
RO, STAT 
TATUS, 


DB1) 


DB2_L 
(FBB2) 

OF _LIsT 

OF"LIST, 5$ 


FDB1), ) 
FDB2), (FDB2) 


IF$GL_DIFREC, RO 
1736 ob DIFSGL_DIFREC 
FSGL_DIFREC, DIFSGL_MAXDIF 


ADIFS_MAXDIF, RO 

#1, RO 

STATUS. #DIFS_INSVIRMER 
STATUS 

#2, PRINT_AND_QUIT 
20(FDB2), FDB2_LASTREC 


V4,0-74 
:CDIF..SRCJMAIN.B32;1 


Page iS 


{4 


- 
ett 


SS, en 


mA 


By 


FEDD =sCF 


Routine Base: 


ee | nm 

" " 
CO FOOD “COMO DDOO 
OWA FPN OWL OVO 


owrooroow—-vc oT VT 9T0MWwvoo-o 


WO OO0O— F “AOOo—-0oo0-"0 


SCODES + 0246 


fede dein 25:43:04 


VAd=11 Bliss-32 V 
DISKSVMSMASTER: 


iH END_OF LIST 


(FDB2), oo tese 
73°08 d+, =(FDB2) 


081, TEMPFDB 
DB2. FDBI 
EMPFDB, FDB2 


cbt OSRCIMAIN. 832;1 


FDB1), 16(FDB1) 
FDB2). 16(FDB2) 
ul OW, DIFSGL_DIFR 
#1, MISMATCH 


a 
F 
F 
T 
| 
1 
a 
a 
‘e 


6( 
6( 
ND 


) 
$ 
1 
1 
I EC 
1 


Page 


15 
(4) 


f= 


ee ee eee 


se 


4 
DIF _MAIN 1$-58 po) 74 VAX-11 Bliss-32 V4.0-74 Pa 16 
be 14-Se ae 93: 18; % DL EKSVMGMASTER COLE SRCIMAIN.B32: 1 a (5) 
; 4655 754 1 ROUTINE test_match = 
3; 46 $ f 5 BEGIN 
; 4 § 
3; 6 : 7 'ee 
3; 4 7 i 
3 re e FUNCTIONAL DESCRIPTION: 
s 4 761 i This routine is called when a match has been Sytoctod 
; 46 166 i by mismatch. It checks to cee that the match is tong 
; 464 76 i enough to be a legal match, and signals its result via 
; 465 764 i the return status. 
; £08 765 i 
:; 46 i INPUTS: 
; 76 i 
3 $8 768 i None. 
; $670 768 i 
3: «471 770 i OUTPUTS: 
3; 47 771 i 
; 47 Ak i None. 
: ths ug | oe VALUES : 
3; 47 775 i 
; 47 77 i fre. if the ye is long enough. 
; 478 77 i if i not long eno ug", 
3 rt ve i pire: * INSVIAMER, if get_record fails due to insufficient VM. 
3; «64481 780 ine 
; 48 781 LOCAL 
: 48 7 ; status; 
Be 
: 486 785 INCR i FROM 1 TO .difSgl_match - 1 ! Do DIFSGL_MATCH = 1 number of compares 
3 pet 4 DO BEGIN 
; 489 7 4 IF NOT (status = sftiss -record (difSgl_masfdb)) ! Get the next record from each file 
; 490 789 3 THEN RETURN .s 
; «491 7 4 IF NOT (status = get. “record (dif$gl_revfdb)) 
: re 44! ; THEN RETURN .status; 
3 6946 793 4 IF NOT (compare (. qi tSot masfdb Ffdbst ee , spe the two fetched records 
; 495 794 & .dif$gl-revfdb Cfdb$l“currec}5) 
: 696 795 4 THEN OFGIN dnft conpnréc)| hen restere ptrs 
; 497 as | & difSgl_masfdb (fdb$l_currec = .difSgl_ ncaies" fab L_compnrec 
3; 498 797 & ore - “revfdb Cfdb$l"currec -dif$gl- revfdb fabs. _compnrec 
~ 499 798 & A N” false; ! Return false 
: $00 799 3 
; $01 00 
3 4 1 
3 8¢ 
3 0 3a true; ! Same, return true 
; 505 804 ! Of test_match 


OOFF 00000 TEST_MATCH: 


i a i a i i a a 


i N 1) -seo-1984 33:48:06 VAX-11 Bliss-32 V4.0-74 Page 17 


14-Sep-1 DISKSVMSMASTER: (DIF .SRCJMAIN.B32;1 (5) 
«WORD Save R2,R3,R4,R5,R6,R7 : 0754 
? v EF HOVAB ««GET_RECORD. RP : 
§ G MOVAB DIFSGL_REvEDB, R : 
G MOVAB DIFSGL"MASFDB. R : 
i 6 D 1 VL  DIFSGL“MATCH, R : 0785 
1 1 CLAL i g 
1 ere ; : 
DD 1$ PUSHL R : 0788 
67 1 F CALLS #1, GET_RECORD : 
2 D 7 MOVL RO STATUS : 
08 E A BLBC ~—_« STATUS, ; 
bb D PUSH $ + 0790 
$7 F F CALLS #1, GET_RECORD : 
2 D MUVL = RO STATUS : 
g4 E BLBS STATUS, ; 
0 60 0 2s ROVL STATUS, RO + 0791 
at Ream mm ete 8s 
00000000v FF Q F 0946 CALLS a3. ; 
A E 904 BLBS = «RO, : 
65 16 AS OD 4A MOVL DIFSGL_MASEDB+20, DIF SGL_MASFDB ; 7 | 
14 ag D OO4E MOVL DIFSGL_REVEDB* 0; DIFSGL-REVFDB : 0797. 
9 11 0005 BRB 4 : 0798 | 
CA 53 4 Fe 0054 4$ AOBLSS R4, I, 18 + 0785 
0 01 00 00058 MOVL * RO + 0803 
04 00058 RET : | 
50 bs 0005¢ 5$ CLRL = RO + 0804 
4 0005€ RET : | 


; Routine Size: 95 bytes, Routine Base: SCODES + 036A 


mm i i 


Ba Se Se Oe Be Oe Se Oe Se Se Be Se SH Se Se Oe Se Se Be Se Se Se Se FH Se FH OY Se ws OH Os Os Oe SFOs Se Oe Be Oe SH Se HSH Oe Se ee ee SH Se Se Oe Oe BH Oe Oe Bs ee 


eg 


2 
42000" VESeoctgle GH:AB:MS  WMHTABLLREGRE CEA °G2aarnosacn "2% dP 


07 5 1 ROUTINE compare (rdb1, rdb2) = 
BEGIN 


ROUTINE VALUES: 


True, if the records are the same. 
False, if the records differ. 


Lh th dh bb db dih bbb Ah sl 


rdbi : REF BBLOCK, 
rdb2 : REF BBLOCK; 


‘ ssi 
3 10 FUNCTIONAL DESCRIPTION: 
14 i i This routine is to compare to records. Since every 
15 1 : record has already geen preprecesses by the time it gets 
18 14 ‘ here, all this routine needs to do is check the length 
; 1? : and content of the records. 
19 "7 INPUTS: 
1 i i rdbl, rdb2 = The addresses of the RDB's of the two records 
¢ 0 } that are to be compared. 
i ‘ 

: § ; OuTPUTS: 
$ os 4 ! None. 
GOB 
9 5 i 

8 ‘ 
1 9 
§ . $i 
$ : 

5 


If .rdbi Crdb$w_ length) NEQ .rdb2 (rdb$w_length) ! Compare Lengths 


PUPP AAI PIII 


SODDODSDDOODODOOOOOODOCOCO00 
G2 09 G2 G0 00 00 G0 OD Ge 69 OD 
FELESAEL ES 


39 
“0 3 THEN RETURN false; 
45 0 If .rdb1 Crdb$v_eof] AND .rdb2 (rdb$v_eof) ! Special case EOF's 
rt 1 THEN RETURN frue; 
: IF CHSNEQ (.rdb1 preote. tenets . edb prese_cexe? ! Compare content 
4 .rdb2 Crdb$wilength), rdb2 Crdb$t~textJ) 
5 THEN RETURN false 
§ ELSE RETURN true; 
8 END; 
000 COMPARE:.WORD Save R2,R3 : 805 
1 AC 00 0000 MOVL DBI, Ri > 0837 | 
0 § AC D 0 MOVL note RO 3 
12 AO 12 Al a A CMPW =s«1B (RI), 18(RO) ; 
1A : F BNEQ 3$ : 
oc BB AO 03 EO o0016 BBS ae BRO}. 28 Sane 
12 Ad 0 14 AI 12 Al 5D 1B 18 CMPCS 18(R1), 20(R1), #0, 18(RO), 20(RO) > 0844 


Dien Hfostocrone 25:43:04 pane tt eiencae y4.O-74a | Page (19 


146 ad $ 

4 1 0 3 ; 
50 1 06 z 2s: ROVE wi, RO ; 0846, 
50 b4 3$: CLRL ~—-_ RO + 0848 
0 RET 3 


3; Routine Size: 46 bytes, Routine Base: SCODES + 039 


IEAecIS GENTRY HANSA Seas GP 


1 ROUTINE mark _match (fdb) = 
BEGIN 


Always true. 


fdb : REF BBLOCK; 


LOCAL 
rdo : REF BBLOCK; 


rdb = .fdb Cfdb$l_compnrec); 
rdb (rdb$v_matchone) = true; 


INCR i FROM 1 TO .dif$gl_match 
DO BEGIN 
rdb (rdb$v_match) = rug: 
+B = .rdb (rdb$t_ flink ; 


CONOULWN OO 


SNA 


5 tbe 
1 

F 4 ; FUNCTIONAL DESCRIPTION: 

§ $ i This routine is called to mark the most recent set of mat cched records. 
60 : The match records start with COMPNREC and extend DIFSGL_MATCH number of 
2: 8 : records from there. 

63 ; INPUTS: 
65 § : fdb = ey address of the FOB for the file whose matched records are 
08 $ o be marked. 
6 : 
6 5 : OUTPUTS: 
4 i The MATCH bit in the RDB's of the matched records are set. 
4 0 The MATCHONE bit in the RDB of the first match record is set. 
7 ; ROUTINE VALUES: 

' 

' 

8 1 


Address of current RDB 


Locate first match 
Mark it as first match 


CD: 
Mw 


Locate all matches 


Mark each as a match 
Get next match 


Pt 
Oo 


Be Se Se Ge Se Se Se Fe Se Ge Se Ge FH Se Ge Se Se Ss Se Se Ss Se Ss Se Se Se Se Ht Oe oe BO Se Se Ss Ss Se OH Se Se Se Se Ge Ge we 
~ 
= 


be Sr tb ah ah ap hr ph 
SRAVLSSELEAREN AS SANTO 
SOoOOOCoOCoOooooo 


c2co0o 
Ss 


RETURN true; 
END; 


0000 00000 MARK _MATCH: 
WORD 


° Save nothing ; 0849 

50 04 MOVL FOB : 0882 
0 14 MOVL  20(R0), RDB : 

08 oA BISB82 #32, B(RDB) : oBs3 
chee bg 

08 ad is ab BISB2 #16, 8(RDB) > 0887 


vOe=00 . i “fie: 1382 13: 18: 8 DLEKSVMSMASTERS DIE SRCSMAIN. 832;1 _— a 5) 


Fi 3? 000000006 f i 3H 2s: ie off of AA MATCH, 1, 1$ ie 3 


92 
; Routine Size: 37 bytes, Routine Base: SCODES + 03F7 


pert WFoseo-t96e g$s43396 


97 NE get_record (fdb) = 


“11 BLi $03e V4 


X-1 .0-74 P 
SKSVMSHASTE (DIE SRCSMAIN.832; 1 eae B 


Ww 


i FUNCTIONAL DESCRIPTION: 


This routine is get tes to supply the next record, from the specified 
file. It determines whether there is a need to go to the file for 
the record (ji.e., it checks to see if an + a} ready exists for the 
record), and it keeps examin ng records until it finds one that is 
not supposed to be ignored in all comparisons. 


ao 


BIO Se 


SaeSS2 


610 i INPUTS: 
oi¢ fdb = The address of the FOB for the input file. CURREC specifies 
eiz the record just before the one to be fetched. 
615 i OUTPUTS: 
£19 The address of the fetched record is strored in the CURREC 
ols field of the FDB. 
6 9 i ROUTINE VALUES: 
6 § i DIFS_INSVIRMEM, if read_record failed due to insufficient VM, 
6 true, otherwise. 
624 
5 oo 
$ p 
: fdb : REF BBLOCK; 


LOCAL 
rdb : REF BBLOCK, 
status; 


Address of current RDB 


SOAAOAAAAAO 


FAS=SS 


Status = true; 


DO BEGIN 
If (rdb = .fdb Cfdb$l_currec]) EQL 0 
THEN status = read_record (.fdb) 
ELSE IF (rdb = .rdB Crdb$t_flink)) Ear 0 


Assume no problem reading record 


If no previous record in memory 
then read & new record from the file 
or, if next record is not in memory 


COAOS 
SELES 


1 
' 
640 THEN status = read“record (.fdb); i then read a new record 
641 If NOT .status ' If error reading 
ong THEN RETURN .status; ! Then return error 
64 If .rdb EQL 0 ' If new recore read 
644 THEN rdb = .fdb Cfdb$l_lastrec]; ' then get its address 
645 fdb Cfdb$l_currec) = .rdb; ! Set current field to fetched record 
i om 
“ UNTIL (NOT .rdb ([rdb$v_ignored)); ! Read records until not ignored 
650 RETURN true; 
651 END; ! Of get_record 


Per ASI TERS ANDERE EE 


a 


O00C 00000 GET_RECORD: 
WORD 


Seve R2,R3 ; 0893. 
01 »D MOVL status : 093 
06 Ac D MOVL Fog, ns : 0933) 
6 p 1$: MOVL (R35, RDB : 
C BEQL 2s s 
52 D MOVL (RDB), RDB : 0935. 
bs 00015 28 a A t 0936 
00000000 fF e. 1 CALLS #1, READ_RECORD : | 
2 9 £ 1C 3$ BLBC STATUS, $$ : 0937. 
D 1F TSTL ROB ; 0939, 

06 1 0 BNEG 4$ : 
38 98 <A3 OD MOVL 8(R3), RDB + 0940) 
6 2s Dd 027 4$ MOVL RDB, (R3) 3 0941. 
D8 08 A2 EB O0002A BLBS  8(RDB), 1$ + 0944 
5 01 DO 0002E MOVL #1, RO + 0946 
04 00031 5$: RET : 0947. 

; Routine Size: 50 bytes, Routine Base: SCODE$ + 041C 


Le, Le, en, LE, a 


a a ew at te 4 


3 
DJF _MAIN Ses =19864 23:42:04 VAX-11 Bliss-32_V4.0-74 P 4 
voe 14-Sep-1986 $3:46;33 DLSKSVMSMASTERS (DIF SRCIMAIN.B32: 1 tna 3 


3 3 948 1 ROUTINE read_record (fdb) = 

3 4 94 BEGIN 

; 3 3 3 1 'oe 

: 888 93¢ i 

; 2 8 9 Z FUNCTIONAL DESCRIPTION: 

: 660 955 i This routine is called to get the next record from the specified 

: 661 9 $ : input file, put it in an RDB, process it for any ignore fields or 

; 66¢ ; characters, and link it's RDB with already existing RDB's. 

; 664 5 i INPUTS 

; 665 960 : 

s 008 961 : fdb = The address of the FOB for the input file. 

; 66 906 : 

; os8 st OUTPUTS: 

: oo 965 ; The RDB is allocated, filled in, and returned in the LASTREC field of the FDB. 

; 67¢ 967 5 | ROUTINE VALUES: 

3 Of 968 } 

; 674 0969 : DIFS_INSVIRMEM, if RDB allocation fails due to insufficient VM, 

; 675 970 : true otherwise. 

3 676 971 ' 

; 67 097 feo 

: 8h 7% 5 MAP 

; 680 fdb : REF BBLOCK; 

: 68¢ LOCAL 

; 68 lastrdb : REF BBLOCK, ' Local for last RDB in List 

: 684 rab : REF BBLOCK, ' Local for file RAB 

; 685 rdb : REF BBLOCK, ' Local for RDB just allocated 

3 one status; 

et , 

; oe Try to get a record from the file. Handle special EOF case. 

; 691 rab = .fdb (fdb$l_rabptr); ' Get address of RAB 

; 69 IF NOT (status = SGET (RAB = .rab)) ' Get record from file 

; 69 THEN IF .status NEQ RMS$_EOF ! If error and not EOF 

; 694 THEN SIGNAL_STOP (dif$_readerr ! Then signal error 

: 695 1, .fdb CfdbSt_fildesc), .status, 

; 696 -rab Crab$l_stv¥)) ; 

3 +4 ELSE BEGIN ! Else Link static EOF RDB to List 
; ‘ IF (rdb = .fdb Cfdb$l_lastrec]) EQL 0 If first record 

; 700 4 THEN BEGIN ' Then use as head of List 
; 701 & fdb pigbst_tirstrec = .fdb Cfdb$l_eofrec); 

3 4 ? 1S fdb$l_compirec] = .fdb C[fdb$l_eofrec]; 

; oe ELSE rdb Crdb$l_flink] = .fdb Cfdb$l_eofrec); ' Else Link to end of List 
; 706 fdb Cfdb$l_lastrfa] = rgb; ' Remember Last successful read 
; 70 rdb = .fdb Cfdb$l_eofrec); ' Get address of EOF RDB 

: 708 fdb (fdb$l_numrec] = .fdb ffgbSt nuarec] +1;  ! Ince record number in FDB 

3; 709 rdb [rdb$i_number) = .fdb [fdb$l_numrecJ; ! Assign EOF record number in RDB 


V3 
ou fa eseortane a3s43im 


fdb Cfdb$Si_lastrec] = .rdb; 
RETURN true; 
END; 


simple fields in the RDB and FOB. 


> eb 4 se ot 2 tn 


VF WN 0 OOO EWN OOO WoOu rn 


ee ed 


F NOT (status = allocate _rdb (rdb, .rab Crab$w_rsz])) 
THEN RETURN .status; 


IF {lostree = = .fdb Cfdb$l_lastrec]) EQ. 0 


3 

; 

: 

4 

5 

$ 

§ fdb Ctabst _firstrec] = .rdb; 
Y i> fdb$i"compirec) = .rdb; 
g 

4 

5 

5 

8 

9 

0 

1 

g 

5 


Oooo 


END 
ELSE lastrdb (rdbSi_flink] = .rdb; 
fdb Cfdb$l_lastrec) = .rdb; 


rdb (rdb$i=number) = .fdb 


fdb Cfdb$l_numrec] = .fdb (fdb$i_numrec * Vg 
fdb$l“numrec 


rdb (rdb$w_length = irab rab$w_rsz); 


Si i Pi i i in, i i in iP BP Bi in, en Pn en lite ie ie i i te | 


a a a kk a 8 a a ad a td = a a 2 a — = sd 
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Update FDB last record read ptr 


Record aycegestutty reed from file. So get an RDB, Link it to the List, and fill in some 


Allocate a RDB for the new record 
Return if unsuccessful 


If first record 
Then use as head of ‘ist 


Else Link to end of List 
Update FDB Last record read ptr 


Incr number of record in FOB 
Assign record number in RDB 


' Move record size into the RDB 


RDB and 
if we are 


Get R 
a “ength non-zero? 
cet text 


NEQ 0 ! If some edit flag is set 
' Process the text 


No, do we ignore blank Lines 
Yes, then mark the RDB 


OF read_record 


0 
0 
0 
0 
0 
0 
8 
8 ! If record size is non-zero, then move the text and RFA into the 
! process the record for any ignore characters. Otherwise, check 
; ; ignoring blank Lines, and if we are, set ignore flag for this record. 
740 0 CHSMOVE (rfa$c size, rab Crab$Sw_rfal, rdb (rdb$w_rfa)); ' 
741 0 IF .rdb Crdb$w_length] GTRU 0 ‘ 
74 0 THEN BEGIN : 
74 038 CHSMOVE (.rdb (rdb$w_ ton th), : 
744 039 ab rab$l- 
745 040 tdb Crdbst. text 5; 
74 041 IF (.dif$gl_ignore AND NOT Cignte_ exact OR ign$m_ pretty?) 
74 ek THEN process_record (.fdb); 
rs si , 
750 045 ELSE IF 201 fSot ignore Cign$v_binklin] : 
73 beg THEN edb [rdb$v_ignoréd] = true; ' 
73 RETURN true; 
754 808 END; é 
-EXTRN SYSSGET 
O3FC 00000 READ_RECORD: 
eWORD Save R2 
9 000000006 69 9 MOV DIFSGL_ 
E C SUBL a4, SP 
: 9 AC DO MOVL Fe Rb 
0 Ag D 1 MOVL 48(R6), 
58 00 14 PUSHL RAB 


R3,R4,RS_RO.R7,RBRO ; 0948 

fondre, Rd z 

e 0 
: 0987 


1" 


kk a tt at tk a a a a at at at et wt = —* = = 


—— 
Dies) 


000000006 


0001827A 


000000006 


00000000v 


o ari 


16 «A? ¢ 
FFFFFEF SF 


00000000v 


08 


; 


00 
6€ 


oc 
38 
000000006 


08 


1 
1 


08 


FORO Orrvo— 


WODO PUPS VWIW"O 
ow 


—— ON On OnD 


ooo oouUno > — 


-omon 


FOODS MUDD OOG OO “CONC £FO@OW SS=SSSSSSS—SSNS-woccceuw wow 


OTM "9 $9 Dv@Do009 -9 9 -TC TOONS 7 OW FV OCCTT00 -C70 9-9 | "99009 


3 
1S-sepe1 
14-Sep-1 


$ 


— 33s 
~ 
Vis b> 
5 
bod 


oo 


RESASEAAS 
* 


22s 


++ 


2s 


= 


=l= 


2¢ 


8$: 
9$: 


SSS 


9B §3:96:95 


VAX-11 Bliss- 
DISKSVMSMASTE 


#1, SYSSGET 
RG, STA 


STATUS "8 
STATUS, 8938 
1 


a 

IFS_READERR 
3. LTB$STOP 
(R6), RDB 
4(R6), 4(R6) 
(R6), 16(R6) 
( 
B 
( 
( 
8 


( 4(RO) 
. ) 

34 (RAB) -(SP) 
#2, ALLOCATE_RDB 
RO, STATUS 
STATUS, 5$ 
STATUS, RO 


RDB, R7 
8(R4), LASTRDB 


hap 
~ @40(RAB), ge 
BIFSGL IGNORE, #1 


a. PROCESS_RECORD 
Hg gene. 
#1, R 


32 v4.0-74 
aE SRCSMAIN.B32:1 


Pee Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Ge Ge Ge Ge Se Se Se Se Ge Be Be Se Be Se Se Se Be Se Be Se Be Se Se Se Se Be Se Se Be Be Se Se Se Se Se Se Se Se Se Se 


roe 


88 FEES 3 


23s 


1015. 


-——- —— 


ooo oO 
YVIONASNMNIOO wo 


$3 Ssssssssss Ss 
& RF 


=“ 
Nm 


SaSm8 


panncmerane 
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; Routine Size: 229 bytes, Routine Base: SCODES + 044E 


3 
VO4G=000" 1Esen- 10 13:48:93 DIScSvmGmastenscoiécsncSmaiw.osz;1 "8% 188 
7 1 ROUTINE process_record (fdb) = 
f BEGIN 
73 tee 


FUNCTIONAL DESCRIPTION: 


4 
5 
106 $ 
76 This routine is called to remove all ignore characters from a record that 
764 : has just been read. 
765 
108 ? INPUTS: 
768 § fdb = The address of the FOB for the input file. LASTREC contains the 
4 , address of the RDB for the record that is to be processed. 
771 5 OUTPUTS: 


The LENGTH and TEXT fields of the RDB are modified to reflect any editing 
that was performed. The IGNORE flag is set if all text has been deleted and 
we are ignoring blank Lines. 


SS 


' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 


0 
oe 4 ROUTINE VALUES: 
a8 8 Always true. 
7 74 
i hee 
738 6 
mas On fdb : REF BBLOCK; 
786 80 LOCAL 
7 081 rdb : REF BBLOCK, ! Address of ROB of record to process 
7 0. § blankseen, ! Flag indicating last char was a blank 
789 0 gnore, ' Flag prone 9 od this char should be ignored 
790 working, Len ' Local working length of record 
791 5 charptr’: REF VECTOR [.8YTE), i Ptr to char being tested 
n 0 moveptr : REF VECTOR (BYTE); ! Ptr to byte after Last moved char 
794 O88 rdb = .fdb he ot postrecd: ' Get RDB of record to process 
795 08 charptr = rdb rebbs text : ' Point to start of text 
working_len = .rdb (Fdb$w_length); i Working copy of the Lnegth 


' 
If ignoring headers, and if this record is part of the header, then ignore it. 
if di t$ol_ignor Cign$v_header) 

THEN IF tite Sebel needent) LSSU .dif$gl_header 


BE 
fdb Cfdb$t headens) = 
fab Cfdb$t_headcnt) + 1; 


If ignoring headers 

And if record is part of header 
Then ignore it 

Incr count of header records 


SSSFSFSIES 


Bae Se Se Be Se Oe Se Se Oe Se Se Be Se Fe Se Se Se Se FF Se Se Se Se Se Se FH Se Se Se Se Ge Ge Se Se Se Ge Se Se Se FH Se Oe Se Ge SH Se Se Se oe SH Oe Se Se Se Sees 
~“ 
ee em a ee me a ee a ed a ed nd ed dd 


1 rdb Crdb$v_ gnored) = true; Mark the record 

: ; RETURN true; Return 

1 
10 1 ELSE IF (.working len NEQ 0) ' If first char is <FF> 
11 105 Sy aheraae CO} EQL &x*OC") ‘ 
12 1 THEN BEGIN ‘ 


hicieron aetna gp apenas resilient permanence tatiana ieaieapetaepateiniamraeasit 


s¢ | 


a a a a at a tt a = a — on —) 9 ss a ts — as 4 4 ss sa 


[ae 3 
vou=000" 1en$3p-1986 12:18:58 


K-11 Bliss-32 V4.0-74 P 
SKSVMEMASTER COI SRCSMAIN.B32:1 -?%°c185 


VA 

01 

} Then if ny Ae char in record 
; 

i 

' 

i 

! 


IF work ing-fe5 GOL 1 
THEN fdb“CfdbSl_headcnt) = 0 Then start header with next record 
ELSE BEGIN Then start a new header 
fdb p£gb$t headent = 1; One record foun 
re rdb$v_ignored] = true; Ignore the record 


RETURN true: Return done 
END; 


—> — > —) 2 ss 


— 
ARUN SO DOS MO Und Cer LOD A Ut 2 Dae ad 


If ignoring comments, and if part of this record is a comment, 
then ignore that part cf the record. 


F .dif$gl_ignore Cign$v_comments) 
THEN Beck Sites 


te index, bestptr, currptr; 
ndex = 0; 


Ignoring comments? 
Then look for comments 


Init comment char count 
Point to end of strin 


bestptr = .charptr + .workin 9 
Check for each comment character 


len; 
WHILE (. index NEQ .difSgl. conadesc Cdsc$w_length]) 
DO BEGIN ; 


' 
i 
i 
i 
i 
i 
' 
IF (currptr = CHSFIND_SUB C-ugre tng, ton geeretr AY does comment char appear in record? 
ater -index)) NE 
i 
i 
i 
i 
i 


1, :01¢Sal_conadesc Cdsc$a_po 
THEN IF NO perce genni lee - index Yes, must it appear in the first column? | 
THEN bestptr = Ml No, then we've definitely got a comment 


(.currptr apouegtey 
ELSE IF scucrpte EQL rdb Crdb$t text Yes, then check that it does 
THEN It does, so treat it as a comment 


Increment the comment char count 


XITLOOP bestptr =.currptr; 
index = .index + 1; 


work ing_len = .bestptr - .charptr; 


Reset record length 


PP AAA AA AAAI PEE ER EEE PL par ure err 
DWN AE WN 2S ONO NEW SS NOME UI ODO NO NEU ODO OUR 


a a a a a dt ed td a 2 2 
ec ec ee ee a eed ed ed od dd 


DDE EEE EEE EE & PAM AMMIIIININININININIWE BB EE PANE EMI IIPINIPINININIWUIA & Ps 


Be Be Se Se Se Se Se Se FOS. Se Ge FH Se Se Se Se Se Se Fe Ge Ge Se FH FFs Ss Oe Se Ss Se Se Ge Se Se Se Se Se Se Se Se Ss FH Se Se Se Se Se Ge Ge Se Se Ge Se Se Gee 


BF 
40 ! Only enter character loop if FORM_FEED or SPACING is specified. 
41 ! Test each character in record to see if it should be ignored. Edit ignored 
¢g characters out of the record. 
44 if .dif$gl_ignore Ci n$v_formfeed) OR .dif$gl_ignore Cign$v_spacing] 
$2 THEN BEGIN ° ° “-" ° “ . | 
“3 blankseen = false; ! Init state 
$8 gnore = false; ; 
4 moveptr = .charptr; : 
39 tS gnereer NEQ (rdb Crdb$t_text] + .working_len)) Check each character 
if SELECTONE .charptr (0) OF SET i 

B61 5 Czx°0C*): ' Form feed? 

4) $ IF 201 tSql_ignore Cign$v_formfeed) ' Are we \gnor ing them? 

B6 THEN ignore = true ' Yes, then set ignore flag 

+¢ 28 ELSE blankseen = false; ! Reset blank flag 

B66 60 C2x"20°,2x'09'): ! Blank or tab? 

. 61 IF 201 tSqt ignore Cign$v_spacing) ' Are we evening out spacing 
66 THEN CIF .blankseen ' Yes 
6 HEN ignore = true ! Second blank or tab, so ignore it 


yz deca wish 


X-11 Bliss-32 V4.0-7 
SKS$V VMSMASTER: ColF. SRC MAIN.B32;1 


blankse ¢ ty tee fire 
nkseen = . e see 
tei ghee er boy eo zx'09° ! If char is a tab, ue have 


yA rdbby odized) = true; ! editted the Line 
gherote J 0°; ! Convert tabs to blanks 


END); : 


ELSE BEGIN 


COTHERWISE): 
blankseen = false; ; 


ALL other characters 


TES; 
: 
If not ignoring last character tested, then copy the character. 


F NOT .ignore If last char was not ignored 
THEN BEGIN i 

moveptr (0) = .charptr (0); i Copy the character 

moveptr = .moveptr ¢+ 1; Update result ptr 


: nore = false; ' Reset flag 
arptr = .charptr + 1; ' Incr the charptr 
END: ! Of while 


york ing.ten = .moveptr - rdb (rdb$t_text); 


Update working length 


If ignoring trailing blanks, then edit them out also. 


veptr = rgb Crdb$t_text] *¢ .working_len - 1; 
IF poi tSateig nore Cign$v_traibink) 


Becik oyert of aneerg 2 i cr bSt_text) - 1; 
63 “OR 


$38 
arene 


Vedete 
If {gnor ing Rraiting blanks 


a ai a a a ed 2 ed 8d = = dd 


ARENVLSSSLE BEAN SE SSVEALAV AS Sao ANI Soe usar 


 qpewenn, er Bernina. Qian dd nth > sem ote al matic 


WHILE (¢ (Rove EQL % : 
i noventr EQL Ix 9°) ) AND 
(.moveptr NEQ start_of_record) 


— . ene last char is blank 
one. not past beginning es string 


SSceoF 


a a ee ed ed ed 


910 DO moveptr = .moveptr - 1 ~ Decrement size of record 
911 END; 

318 ; 

gig 8 i Calculate Length of edited record. Set edited flag if different from original Length 
91 1 len = .rdb (rdb$w_iength); 

319 1 rdb ‘trdsse gtength = ,mov Sotree rdb Cr bSt_text] + 1; 

aig \¢ IF .workin “5 ~fen NEQ .rdb (rdb$w_length 

91 1 THEN rd obs _edited = true; 

385 i$ $5 

9 § 1g ‘af length is now zero, and we are ignoring blank records, then ignore 

; t ; , t this record. 

925 8 if 305 tSol ignore Cign$v_binklin] AND (.rdb Cedytu_tengeh) EQL 0) 

926 20 THEN edb [rdb$v _ignoréd = rdb (rdb$v edited] = true; 


| I ee es 


pe 3 
“¥b42000" 1ESeoctgde GH:48:95  YMHTWBALRRGRE CHM °aRSaatnosz:1 2% ad 


$8 188 ENDS “sem ! Of process_record 


OFFC 00000 PROCESS_RECORD: 
. WORD 


eo Outro 


Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 1050 
8 000000006 00 9 HOVAB DIFSGL fGnore, Rit : 
4 ac D MOVL DB, RO + 1088 
4 A p MOVL grb) RD : 
9 4 AG . MOVAB 9cR4 R + 1089 
4 59 MOVL 9, CHARPTR : 
A 12 AG SE MOV 18(RDB), R10 : 1090. 
2A 4 $ ef ++ lal ed SP? ih on 1095. 
000000006 8 28 A oI CPL coin, SIFSGL HEADER + 1096 
28 OA 06 INCL  40(RO) + 1099 
18 1 RB Et 4 + 1100) 
5 03 TSTL § WORKING_LEN + 1104 
171 BEQL «6s 4$ : 
0c 68 91 CMPB = (CHARPTR), #12 : 1105” 
1 1 BNEQ 4 : | 
01 5? D CMPL § WORXING_LEN, #1 + 1107 
06 12 BNEG ; 
28 OA p CLRL © 40(ROD + 1108 
OOFF 31 BRW : 
28 =A 01 p60 MOVL #1, 40(RO) $111 
OOF4 31 BRW : 111 
52 6B 1 €1 BBC #1, DIFSGL_IGNORE, 118 : 11 
55 5 $ a} AbDTS MOE LEN, CHARPTR, BESTPTR : i 
56 000000006 00 H : f CMP LV #0, #16; DIFSGL_COMMDESC, INDEX 11 
50 000000006 MOVL  DIFSGL_COPMDESC+4, RO + 112 
68 57 6640 } 5 MAT CHC Ay inex) TROs. WORKING_LEN, (CHARPTR) : 
53 1 p MOVL #1, R3 ; 
1 ; ROVAB -(R3), CURRPTR ; 
10 000000006 £ BBS INDEX DIF $GL_COMMFLGS, 8$ : 1130 
D MOVL CURRPTR, R + 1131 
p CMPL RS, BESTPTR F 
BLEGU ; 
53 D MOVL BESTPTR, R3 : 
p MOVL 3, BESfPTR : 
A BRB : 
59 l D1 cnPL RPTR, RO : 1132 
55 j 06 MOVL CURRPTR, BESTPTR > 1133 
4 BRB $ 3 
p INCL NDEX : 11 
e BRB > 1126 
57 55 C SUBL3 CHARPTR, BESTPTR, WORKING_LEN 11 


DIF 

Page 33 
beams GB:48:94 PMD ARALRHERE SH eSeu "ab 
é 118: EXTZV. #2. #14 DIFSGL_IGNORE, RS 
vat be é : BL a Aff se LIGNORE, 228 1148 
$2 ee ; 128: CRO TGHORE : 1149 
é 06 mOVAB arms LEN) ERDBI, R3 ; : 
: me 3 Soose | Brat ¥ : 1155. 
3 13 000 CHPE{CHARPTR), #12 sent ; 
oc BNEQ 14$ : : 
ties BE ag, ts Ne |i 
. C8 14s: CRPB errs oF | 
a : i oD CHP (CHARPTR) , #32 ; wns | ; 
iD i¢ 158: BAe DIESGL. IGNORE. 198 F 1166 : 
18 f — BLBC BLANK SEEN, : 1163, ; 
i i ee ee ag : 1165, 
' 13 4% Oo0dE ROVL #1. BLANKSEEN : 1166 
; 68 91 OOOET ERPS CCARBTRD #9 S teas : 
3 12 O00E4 B1se2 #8) B(RDB) : 1169. : 
£6 gise2 # oi 1169 
08 re} 5: EA nove #32, (CHARPT ; 1162 
D4 GOOEF 188: CLRL _BLANKSEEW Het 
3 f4 8  ROVB«CEMARPERS (MOVEPTRD« 1 3) 
i | Dé OOOrS ~*~ fact ERARPTR : 115 
4 4 SUB Rd) Mo MOVEPTR, WORKING_LEN : 4197. ; 
FD 21$: = SUBL3 NDCROB MOVEPTR ; 1198 | : 
57 28 13 ii 5¢ 1 338: ROVAB iets Feet] 1fvo RE, 25 1201, : 
17 é 3 10A 238: bree VEPTR : 1202, : 
91 00108 C ROVEPTRD. #9 ; 1203. 
” 80 32 001 ¢ MOVAR <3¢R9) ; | : 
51 rN 9 00114 208: RPL, ROVEPTR, “RI es 
RRB on ie 
fi , BRB N > 1211 3 
? } 01 z oe aa "pp oe : aa 
; ; cs tt 7 ADDY a. a WORK ING_LEN : 2 : 
6A 6 001 CMPZV Foes 
7 - , i} 89 B.S sce i E 
08 As 8 BBiSS 268: Brae’ bit GL TENORE, 288 
. gh 3 O01 dies Sa” iio) |i 
48 8158 i. snes} 2 1222 | ; 

% Be ic} ze: B1SRe at: Bt £1338 

50 " Be doiea “Ret 


; Routine Size: 329 bytes, Routine Base: SCODES + 0533 
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S2e5F 
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RERRLER 


50 


aan nk at tk tk at st et a tt a a a 
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FEMNMAMAGMMNANn 


—OOOnNO US wn — 


14 


04 


8 3 
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1 ROUTINE allocate _rdb (rdbaddr, textlen) = 
BEGIN 


tee 


FUNCTIONAL DESCRIPTION: 


' 

This routine is called to allocate a new RDB. 

: INPUTS: 

; rdbaddr = The address of a longword to receive the address of the 
newly allocated ROB. 

: textlen = The Length of the text that will make up the variably 
sized portion of the RDB. 

OUTPUTS: 

The new RDB is allocated and its fields are all zeroed. 

: ROUTINE VALUES: 

Always true. 

leo 


LOCAL 
rdb : REF BBLOCK; 


IF NOT LIBSGET_VM (ZREF (.textlen + rdb$c_size), rdb) 
THEN RETURN dif$_insvirmem; 


CHSFILL (2x"00", rdb$c_size, .rdb); ! Init it 
-rdbaddr = .rdb; ! Return its address 


RETURN true; 
END; 


! Allocate RDB 


003C 00000 ALLOCATE_RDB: 
» WORD Save 22 AS M6 RS 


5E 08 ¢2 SUBL2 
06 AE OF PUSHAB R06 
AE 08 ac 14 (1 ADDL3 #20, TEXTLEN, 4(SP) 
! PUSHAB 4(SP) 


06 A F S 
000000006 % if if CALLS #2, | JBSGET_VM 
000000006 &F i 1 HOVL #DIFS_INSVIRMEM, RO 
00 bE : 00 C 1$: MOVCS #0, (SP), #0, #20, aRDB 
04 5 8 at 1] A MOVL RDB, reece 
01 OD F MOVL wi, R 


1224 
1254 


1255 
1257 


1868 


S= 


3 
wn > JESepctQle GH:48:94  YMECMIMBASHERZ SH °5263pain.osarn 28 aff 
04 00032 RET 3 1261 
; Routine Size: 51 bytes, Routine Base: SCODES + 067C 


ey 
(DAF RAIN 


woowowvowvwod 
Jato 
NOu 


S33 
wWwr—o 


ooo 
Set ty 


eo 
‘oo 
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PSE ESSER SES EERE StS 


a a ae gs a ws 4 = 


oo 
se 
-o 


' 


co 


LOD 


oO 
uw 


PP BP eS 


SN NNO OO 


7? 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 
1368 
1 

1 

1 

1 

1 
1289 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BVI SLBNE APO 


§ } ROUTINE purgerdd (tab) = 
BEGIN 


lee 
' 
FUNCTIONAL DESCRIPTION: 


This routine is called to purge the RDB's associated 
with a particular file. 


INPUTS: 


fdb = The address of the FOB for the file whose RDB’s are to be 
purged. CURREC specifies the first RDB not to be purged. 


OUTPUTS: 


The purged RDB's are deallocated, and the FIRSTREC field of the 
FDB is updated. 


ROUTINE VALUES: 
Always true 


fdb : REF BBLOCK; 


LOCAL 
rdb : REF BBLOCK; 


IF (rdb = .fdb Cfdb$l_firstrec]) EQL .fdb Cfdb$l_currec) 
THEN RETURN true 
ELSE BEGIN 
fdb Cfdb$l_firstrec] = .rdb Crdb$l_flink]; 
IF NOT .rdb Crdb$v_permanent 
THEN LIBSFREE_VA ( ZREF(.rdb Crdb$w_length) + rdb$c_size). rdb); 
Sh ge purge_rdb (.fdb); 


END; 


0004 00000 PURGE _RDB: . 


.WO Save R2 

08 ¢ 2 SUBL2 #8, SP 

04 AC D MOVL DB, R2 

6 A2 D MOVL 4(R2), RO 

04 A D MOVL , RO 

6 : 1 CMPL = RO. (R2) 
4 : 14 BNEO 
50 1 p 1 MOVL #1, RO 
4 0001 RET 


4 
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DIF_MAIN 1b-sep-1986 23:6 VAK-11 BLiss-32 Vv p ? 
‘¥4=000 Ve-8eb-18ke $2:19:58 — DISRSUMGHASTERSEDTF ShcSmain.e32;1 2% 135 
| 4 Ap " eS 8 2 oe (ROS gre Aine) Saint 
| 16 8 iA . p ‘ ie f 4 ), 28 : 1298 
pe AE 2 AD 36 0006 MOVZ2WL 18(RO), 4(SP) : 
| me 04 he SF sess #60, 4isP) : 
| 000000006 00 FB CALLS #2, LIBSFREE_vM : 
DD 28 PUSHL oR + 1300 
BD AF FB 000 3F CALLS #1, PURGE_RDB : 
F 04 00048 RET : 1303 


; Routine Size: 68 bytes, Routine Base: SCODES + O6AF 


ss | 
fe 


NOVPw 


—> + 4 + 


VFWN OOO VNOUFS WN 


PLLLLL LER Co oosesoesssosso 


S33s3333332 
PAAAAwnw 
WN —0 OB WO VF WO OOO VV Fw 0 0 


w 


a a a a a a a od wd od nd dd od = 


ss 


Sesese 


BEB BRN BH & ERIM BE BE MMPI IPINIPIPIPIPIPIPIPUPIPIPUPUPIPIPIPIPINIPUDIPIPINIPURLRY — 


IAI NINN INNIS SoS SO 
NOU FE wt Oo PEN @O OOVNAOV FS UW "OO OOWOur fut 


me ee ee ae ed od ae? 2 2 ed 


IRoseoct9ge 25:42:04 yatta is4=82 y 


NE set_move_flags = 


R 
8 
: 
' 

FUNCTIONAL DESCRIPTION: 

i This routine is called to initialize the FDB move flags. 

: An FDB move flag is set to true if that file will be output 
: in more than one format or radix. Both FDB move flags are 
} false if SLP output has been specified. 

; INPUTS: 
i None. 
' 

; OUTPUTS: 
: None. 
ROUTINE VALUES: 
i 

' 

' 


Always true. 


AL 
multiradix; 


IF .dif$gl_flags Cdif$v_sip) 
ifen ReTonn’s rue; . 


IF (, es flags (dif$v_ascii * :d1fSol_ flags Cdif$v_hex] + 
.di tle flags Cdif$v_octalJ) GTR 
GIN 
multiradi 
If ‘ 


l_masfdb (fdb$v_move] = true; 
N =revidb fdb$v_move] = true; 
true; 


ir x 
dif$gl hans s ai tsy _merged) 
HEN 

if 

if 


END ; 
ELSE multiradix = false; 


({¢mulsicogts OR pit l_flags shu parallel)) + 
-dif$gl taflags ifdy 


a 
7” 


Piste bia Rget  RP 4° 
dif$g ns {ge tabby achang barJ) GTR 1) OR 

{. dif$gi_a a db Opry Caen AND Sti sgt. revfdb Cfdb$v_separated)) 

THEN difSgl_masfdb am v aoves = true; 
If (CC au ete radix OR $9 pes edie parallel)) + 

dif t tags fe 
-dif$gl_revidb fab v mseperate 4° 
git l_revfdb [fdb$v schenge arj) GTR 1) OR 

((. dif$gl_masfdb (fdb$v_separated) + 


a 


cCDIFs OSRCSMAIN. 832;1 


NOo-2Oo Onwnro”d 


— 
4 
| 15-Sep-1984 23:42: VAX-11 Bliss-32 V4.0-74 Pa 9 
“W060 : 12-8 08-1 38 $3:76:9$ DLEKSVMGMASTERSCDIE  SRCIMAIN.B32:1 9 4) 
3; 1 1 4 -dif$ql_revfdb [abgv=thengeber * 
31 1 dif$gl~ b [fdb$Sv-changebar)) GTR 1) OR 
; 1 ; 1 (41 t$9) nesTob Cie v changeders AND .difSgl_revfdb (fdb$v_changebar]) 
; ! t ! : THEN difSgl_revfdb (fdb$v_move) = true; 
: 1075 1 RETURN true; 
+ 1076 1 END; 
~ paae SET AOvE tba Save R R4, 3 1304 
5 2 MOVAS DIFSGL_REVFDB+36, RS : 
5 09 6 MOVAB DIFSGL“MASFDB+36, R4 : 
G 9 19 MOVAB DIFS$GL"FLAGS, R : 
33 1 08 i} "7 BLBC DIFSGL FLAGS, 1$ ; 1333 
50 . 1 EF 901 1$ EXTZ2V #0, #1, DIFSGL_FLAGS, RO : 1336 
51 6 0 1 EF ; EXTZV #1. #1, DIFSGL-FLAGS. R1 : 
0 1 €0 000 ADDL2 1. RO : 
52 63 1 EF 000 EXT2V #2. #1, DIFSGL_FLAGS, R2 : 1337 
50 3 CO 90 ADDL2 2. RO ; 
1 D1 000 CMPL ‘wi ; 
5 f 0d 660 see OST, RATInADIE 2 133 
07 a3 5 e} 00 BBC #5, DIFSGL_FLAGS 38 : 1 
64 8 a8 obep 81882 #8. DIF $GL—MASF DB+36 : 
R TIRADIX : 1 
51 63 or er O46 $ ext? ms. a. DIFSGL_FLAGS, RI 1 
51 63 e} ; eF ‘ EXT ZY #3, a. DIFSGL_FLAGS, R1 5 
51 64 iH 2 F 6 EXTZy ’ ; “. DIFSGL_MASFDB+36, R1 ; } 3 
52 64 t EF 5 eXTzy #0, #1, DIFSGL_MASFDB+36, R2 > 135 
1 C0 ADDL2 R2. RI ; 
01 : ¢. CMPL sR. : 
? 5 ES bbbeE eee ORS. 58 2 4353, 
03 44 fi BBC #2. DIF SGL_REVEDB+36, 5$ : | 
4 ® 4$ BISB2 #8, DIFSGL MASF DB+ 36 : 1 54 
52 65 1 Ef 075 5$ EXT? ‘ : ‘ . DIFSGL_REVFDB+36, R2 2 5 
51 65 ° EF 10 EXTZv. #0. ny. DIFSGL_REVFDB+36, RI :1 
0 CO 000 ADDL2 R17. RO : 
| ot er : 
' - 
50 64 1 EF 000 EXTZY #2, #1, DIFSGL_MASFDB+36, RO : 1360. 
4 C 10 ADDL R2, R : 
CO 000 ADDLe RI. R ; 1362 
8 Oe 0008 ccrmhsiaa’ 
06 64 E9 0009A BLBC DIFSGL MASE DB+36, 7$ ; 1363 
1 €9 00090 BLBC~—Os«éRI, : 


a 


; Routine Size: 167 bytes, Routine Base: SCODES + 06F3 


Bo Ot ™ i 
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Bise2 as. - Birse.. REVFDB+36 
REY 
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=a 


DOD Ow wwe 


SE2332 


Ss 


SSSLSSEANS 
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ROUTINE print_and_quit (difreccnt, status) = 
BEGIN 


tee 
' 


i FUNCTIONAL DESCRIPTION: 


processed when a fatal error occurs. 


ROUTINE VALUES: 

The input status is returned. 
LOCAL 

rdb : REF BBLOCK; 

difSgi_difrec = .difSgi_difrec + (.difreccnt-1)/2 + 1; 
difSgl_merged = dif$gl_parailel = 0; 
rdb = Sits l pest » eteet gcyrrecd:. 
ahh pest oC nrec 
rdb Crdb$t_ Ttinkye “aif f$gl_masfdb Pabst eofrec); 
rdb = .dif$gl_revf » ‘tram scyrrecds 
bhi revfdb Cfdb comparec rab: 
rdb Crdb$i_flink > sit gl_revfdb (fdb$l_eofrec); 
write mismatch (); 
RETURN .status; 
END 


001C 00000 PRINT_AND QUIT: 
Gord 
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ge 
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SKSVMGMASTER EOI SRCSMAIN.032:1 8%? c10} 


This routine is called to print whatever records have been 


INPUTS: 
difreccnt = Count of last set of difference records. 
status = Status of error causing diff to quit. 
OUTPUTS 
None. 


Update difference count 
Minimize no. of matched records to output 
Set up master FDB for output 


Set up revision FDB for output 


Output differences 


Save R2,R3,R4 : 1368 
DIFSGL_OIFREC, R4 ; 
DIFSGL-REVFDB. R : 
DIFSGL-MASE DB, R ; 
DIF GL-DIFREC. R ; 1396 
“i, DIFRECCNT. R : 
#2, R 3 


e= 


————---—- 


4 
DIF _MAIN 8 <1 :4 VAX-11 Bliss-32 V4.0-74 Pp 42 
ybe2000 : fein 3 13:96:93 PeddnGASteacchse sacSmain.ese:1 20°. 423 
1 Al4 9 : MOVAB 1(R1)CROJ, DIFSGL_DIFREC : 
_, 888 96 0 D CLRL ODF GL PARALLEL + 1398 
6 D4 LRL = DIF SGL=MERG : 
§ D VL DIF SGL“MASF : 14 
14 D MOVL ROB, OTFSGL § DB+20 + 1401 
: 18 A2 D A MOVL  DIFSGL_MASFDB+24, (ROB) + 1402 
$ D MOVL DIFSGL REVF DB, + 1404. 
1% =#A D 4 MOVL RDB, DIFSGL REYFD DB+20 3 1405) 
18 «Ad OD MOVL DIF SG L_REVFDB+24, (RDB) + 16 
000000006 0 FB 4 CALLS #0, WRITE MISMATCH : 146 
08 Ac pO 20 MOVL STATUS, RO + 161 
0054 RET + 1611 
; Routine Size: 85 bytes, Routine Base: SCODES + O79A 
: 11 : 1412 1 
: 11 1413 1 END ! Of module 
+ 1124 1414 0 ELUDOM 
.EXTRN LIBSSTOP 
: PSECT SUMMARY 
; Name Bytes Attributes 
$ SCODES 2031 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON.NOPIC,ALIGN(2) 
: Library Statistics 
: wen more ew Sym abo ls Se Bene a a Pages Processing 
3 File Total Loaded Percent Mapped Time 
} _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 17 0 581 "  00:01.0 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIJELD, INITIAL, OPTIMIZE)/LIS=L1S$:MAIN/OBJ=OBJ$:MAIN MSRC$:MAIN/UPDATE=(ENHS$:MAIN) 
3 Zizes 2031 code + 0 data bytes 


Behe ‘ 

; apse me: 21%. 
3 Lines/CPU Min: $396 
3; Lexemes/CPU-Min: 1 

3; Memory Used: 187 pages 


$= 


RR cc eet wae alee re Lae ML RRC oe? 


3; Compilation Complete 


4 
ibs 5-198 23:42:04 VAX-11 Bliss-32 v4.0-742 
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